Basic plot

Load data from CSV

library(ggplot2)
super_data_set = read.csv("super_data.csv", header = TRUE)
super_data_set$start_time = as.POSIXct(super_data_set$start_time, format='00%m-%d-%y %H:%M:%S')

Scatterplot

qplot(super_data_set$Region,super_data_set$duration,main = "Basic plot for Region type against Duration",xlab = "region", ylab = "Duration")

Text

ggplot(super_data_set[1:100,], aes(super_data_set[1:100,]$Region, super_data_set[1:100,]$start_time)) + labs(x = "Region") + labs(y = "Start time") + geom_text(aes(label = super_data_set[1:100,]$duration))

Bar chart

ggplot(super_data_set, aes(super_data_set$Region)) + geom_bar()+labs(x = "Region")

Line chart

ggplot(super_data_set, aes(super_data_set$start_time, super_data_set$duration)) + geom_line() +labs(x = "Start time")+labs(y = "Duration")

Area chart

ggplot(super_data_set[1:1000,], aes(super_data_set[1:1000,]$start_time, super_data_set[1:1000,]$duration)) + geom_area() +labs(x = "Start time")+labs(y = "Duration")

Dot plot

ggplot(super_data_set, aes(x = super_data_set$duration)) + geom_dotplot(binwidth = 20) +labs(x = "Duration")

Histogram

ggplot(super_data_set, aes(x = super_data_set$start_time)) + geom_histogram(binwidth = 3600) + labs(x = "Start time")

Frequency polygon

ggplot(super_data_set, aes(x = super_data_set$start_time)) + geom_freqpoly(color = "blue")+ labs(x = "Start time")

Box plot

ggplot(super_data_set, aes(super_data_set$passholder_type, super_data_set$start_time)) + geom_boxplot() + labs(x = "Passholder type") + labs(y = "Start time")

Violin plot

ggplot(super_data_set, aes(super_data_set$passholder_type, super_data_set$start_time)) + geom_violin() + labs(x = "Passholder type") + labs(y = "Start time")

Facets

ggplot(super_data_set, aes(super_data_set$passholder_type, 
                                                      super_data_set$start_time, 
                                                      color = super_data_set$Region)) +
  geom_point() +
  facet_grid(cols=vars(super_data_set$Region)) +  
  theme(legend.position="none",axis.text.x = element_text(angle = 90, hjust = 1)) +
  labs(x = "Pass holder type") +
  labs(y = "Start time")

GGMAP

  1. Load the data
library(ggmap)
Google Maps API Terms of Service: http://developers.google.com/maps/terms.
Please cite ggmap if you use it: see citation("ggmap") for details.
#source('register_google.R') 
register_google(key = "AIzaSyAfNEsW1TDQ8hGEbnpQsBJWZZEFoxHzZh4")
googlemap.ca <- get_googlemap(c(-122.796161,37.1931243), zoom = 6)
Source : https://maps.googleapis.com/maps/api/staticmap?center=37.193124,-122.796161&zoom=6&size=640x640&scale=2&maptype=terrain&key=AIzaSyAfNEsW1TDQ8hGEbnpQsBJWZZEFoxHzZh4
ggmap(googlemap.ca)

  1. Draw stations on the map
#map.google <- get_map(c(lon=-118.456667, lat=34.010167), zoom = 12)
#plot(station_data)
#ggmap(map.google) +
#  geom_point(data = station_data, aes(x = station_data$features, y = lat, color=alt), alpha = 0.5, shape=1) +
#  scale_colour_gradient(limits=c(4000, 8000), low="red", high="blue")

Interactive graph

  1. load data
library(plotly)
super_data_set$text = paste('Duration: ',  super_data_set$duration, '<br>Region: ', super_data_set$Region)
#g = qplot(
 # passholder_type,
  #duration,
  #data = duration_passholder_type_100,
  #main = "Basic plot for Passholder type against duration",
  #xlab = "pass holder tpye", 
  #ylab = "duration", aes(text = text)) 
g = qplot(super_data_set$Region,super_data_set$duration,color=factor(super_data_set$Region),main = "Basic plot for Region type against Duration",xlab = "region", ylab = "Duration",  aes(text = super_data_set$text)) + geom_jitter()
Ignoring unknown aesthetics: text
ggplotly() 
LS0tCnRpdGxlOiAiWWlyYW4gTGkgcmVwb3J0IgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdAogIGh0bWxfZG9jdW1lbnQ6IGRlZmF1bHQKICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQKICB3b3JkX2RvY3VtZW50OiBkZWZhdWx0Ci0tLQojQmFzaWMgcGxvdAojIyBMb2FkIGRhdGEgZnJvbSBDU1YKYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKc3VwZXJfZGF0YV9zZXQgPSByZWFkLmNzdigic3VwZXJfZGF0YS5jc3YiLCBoZWFkZXIgPSBUUlVFKQpzdXBlcl9kYXRhX3NldCRzdGFydF90aW1lID0gYXMuUE9TSVhjdChzdXBlcl9kYXRhX3NldCRzdGFydF90aW1lLCBmb3JtYXQ9JzAwJW0tJWQtJXkgJUg6JU06JVMnKQpgYGAKIyMgU2NhdHRlcnBsb3QKYGBge3J9CnFwbG90KHN1cGVyX2RhdGFfc2V0JFJlZ2lvbixzdXBlcl9kYXRhX3NldCRkdXJhdGlvbixtYWluID0gIkJhc2ljIHBsb3QgZm9yIFJlZ2lvbiB0eXBlIGFnYWluc3QgRHVyYXRpb24iLHhsYWIgPSAicmVnaW9uIiwgeWxhYiA9ICJEdXJhdGlvbiIpCmBgYAojIyBUZXh0CmBgYHtyfQpnZ3Bsb3Qoc3VwZXJfZGF0YV9zZXRbMToxMDAsXSwgYWVzKHN1cGVyX2RhdGFfc2V0WzE6MTAwLF0kUmVnaW9uLCBzdXBlcl9kYXRhX3NldFsxOjEwMCxdJHN0YXJ0X3RpbWUpKSArIGxhYnMoeCA9ICJSZWdpb24iKSArIGxhYnMoeSA9ICJTdGFydCB0aW1lIikgKyBnZW9tX3RleHQoYWVzKGxhYmVsID0gc3VwZXJfZGF0YV9zZXRbMToxMDAsXSRkdXJhdGlvbikpCmBgYAojIyBCYXIgY2hhcnQKYGBge3J9CmdncGxvdChzdXBlcl9kYXRhX3NldCwgYWVzKHN1cGVyX2RhdGFfc2V0JFJlZ2lvbikpICsgZ2VvbV9iYXIoKStsYWJzKHggPSAiUmVnaW9uIikKYGBgCiMjIExpbmUgY2hhcnQKYGBge3J9CmdncGxvdChzdXBlcl9kYXRhX3NldCwgYWVzKHN1cGVyX2RhdGFfc2V0JHN0YXJ0X3RpbWUsIHN1cGVyX2RhdGFfc2V0JGR1cmF0aW9uKSkgKyBnZW9tX2xpbmUoKSArbGFicyh4ID0gIlN0YXJ0IHRpbWUiKStsYWJzKHkgPSAiRHVyYXRpb24iKQpgYGAKIyMgQXJlYSBjaGFydApgYGB7cn0KZ2dwbG90KHN1cGVyX2RhdGFfc2V0WzE6MTAwMCxdLCBhZXMoc3VwZXJfZGF0YV9zZXRbMToxMDAwLF0kc3RhcnRfdGltZSwgc3VwZXJfZGF0YV9zZXRbMToxMDAwLF0kZHVyYXRpb24pKSArIGdlb21fYXJlYSgpICtsYWJzKHggPSAiU3RhcnQgdGltZSIpK2xhYnMoeSA9ICJEdXJhdGlvbiIpCgpgYGAKIyMgRG90IHBsb3QKYGBge3J9CmdncGxvdChzdXBlcl9kYXRhX3NldCwgYWVzKHggPSBzdXBlcl9kYXRhX3NldCRkdXJhdGlvbikpICsgZ2VvbV9kb3RwbG90KGJpbndpZHRoID0gMjApICtsYWJzKHggPSAiRHVyYXRpb24iKQpgYGAKIyMgSGlzdG9ncmFtCmBgYHtyfQpnZ3Bsb3Qoc3VwZXJfZGF0YV9zZXQsIGFlcyh4ID0gc3VwZXJfZGF0YV9zZXQkc3RhcnRfdGltZSkpICsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSAzNjAwKSArIGxhYnMoeCA9ICJTdGFydCB0aW1lIikKYGBgCiMjIEZyZXF1ZW5jeSBwb2x5Z29uCmBgYHtyfQpnZ3Bsb3Qoc3VwZXJfZGF0YV9zZXQsIGFlcyh4ID0gc3VwZXJfZGF0YV9zZXQkc3RhcnRfdGltZSkpICsgZ2VvbV9mcmVxcG9seShjb2xvciA9ICJibHVlIikrIGxhYnMoeCA9ICJTdGFydCB0aW1lIikKYGBgCiMjQm94IHBsb3QKYGBge3J9CmdncGxvdChzdXBlcl9kYXRhX3NldCwgYWVzKHN1cGVyX2RhdGFfc2V0JHBhc3Nob2xkZXJfdHlwZSwgc3VwZXJfZGF0YV9zZXQkc3RhcnRfdGltZSkpICsgZ2VvbV9ib3hwbG90KCkgKyBsYWJzKHggPSAiUGFzc2hvbGRlciB0eXBlIikgKyBsYWJzKHkgPSAiU3RhcnQgdGltZSIpCmBgYAojIyBWaW9saW4gcGxvdApgYGB7cn0KZ2dwbG90KHN1cGVyX2RhdGFfc2V0LCBhZXMoc3VwZXJfZGF0YV9zZXQkcGFzc2hvbGRlcl90eXBlLCBzdXBlcl9kYXRhX3NldCRzdGFydF90aW1lKSkgKyBnZW9tX3Zpb2xpbigpICsgbGFicyh4ID0gIlBhc3Nob2xkZXIgdHlwZSIpICsgbGFicyh5ID0gIlN0YXJ0IHRpbWUiKQpgYGAKI0ZhY2V0cwpgYGB7cn0KZ2dwbG90KHN1cGVyX2RhdGFfc2V0LCBhZXMoc3VwZXJfZGF0YV9zZXQkcGFzc2hvbGRlcl90eXBlLCAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc3VwZXJfZGF0YV9zZXQkc3RhcnRfdGltZSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG9yID0gc3VwZXJfZGF0YV9zZXQkUmVnaW9uKSkgKwogIGdlb21fcG9pbnQoKSArCiAgZmFjZXRfZ3JpZChjb2xzPXZhcnMoc3VwZXJfZGF0YV9zZXQkUmVnaW9uKSkgKyAgCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIixheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwLCBoanVzdCA9IDEpKSArCiAgbGFicyh4ID0gIlBhc3MgaG9sZGVyIHR5cGUiKSArCiAgbGFicyh5ID0gIlN0YXJ0IHRpbWUiKQpgYGAKI0dHTUFQCjEuIExvYWQgdGhlIGRhdGEKYGBge3J9CmxpYnJhcnkoZ2dtYXApCiNzb3VyY2UoJ3JlZ2lzdGVyX2dvb2dsZS5SJykgCnJlZ2lzdGVyX2dvb2dsZShrZXkgPSAiQUl6YVN5QWZORXNXMVREUThoR0VibnBRc0JKV1paRUZveEh6Wmg0IikKZ29vZ2xlbWFwLmNhIDwtIGdldF9nb29nbGVtYXAoYygtMTIyLjc5NjE2MSwzNy4xOTMxMjQzKSwgem9vbSA9IDYpCmdnbWFwKGdvb2dsZW1hcC5jYSkKYGBgCjIuIERyYXcgc3RhdGlvbnMgb24gdGhlIG1hcApgYGB7cn0KI21hcC5nb29nbGUgPC0gZ2V0X21hcChjKGxvbj0tMTE4LjQ1NjY2NywgbGF0PTM0LjAxMDE2NyksIHpvb20gPSAxMikKI3Bsb3Qoc3RhdGlvbl9kYXRhKQojZ2dtYXAobWFwLmdvb2dsZSkgKwojICBnZW9tX3BvaW50KGRhdGEgPSBzdGF0aW9uX2RhdGEsIGFlcyh4ID0gc3RhdGlvbl9kYXRhJGZlYXR1cmVzLCB5ID0gbGF0LCBjb2xvcj1hbHQpLCBhbHBoYSA9IDAuNSwgc2hhcGU9MSkgKwojICBzY2FsZV9jb2xvdXJfZ3JhZGllbnQobGltaXRzPWMoNDAwMCwgODAwMCksIGxvdz0icmVkIiwgaGlnaD0iYmx1ZSIpCmBgYAojSW50ZXJhY3RpdmUgZ3JhcGgKMS4gbG9hZCBkYXRhCmBgYHtyfQpsaWJyYXJ5KHBsb3RseSkKc3VwZXJfZGF0YV9zZXQkdGV4dCA9IHBhc3RlKCdEdXJhdGlvbjogJywgIHN1cGVyX2RhdGFfc2V0JGR1cmF0aW9uLCAnPGJyPlJlZ2lvbjogJywgc3VwZXJfZGF0YV9zZXQkUmVnaW9uKQojZyA9IHFwbG90KAogIyBwYXNzaG9sZGVyX3R5cGUsCiAgI2R1cmF0aW9uLAogICNkYXRhID0gZHVyYXRpb25fcGFzc2hvbGRlcl90eXBlXzEwMCwKICAjbWFpbiA9ICJCYXNpYyBwbG90IGZvciBQYXNzaG9sZGVyIHR5cGUgYWdhaW5zdCBkdXJhdGlvbiIsCiAgI3hsYWIgPSAicGFzcyBob2xkZXIgdHB5ZSIsIAogICN5bGFiID0gImR1cmF0aW9uIiwgYWVzKHRleHQgPSB0ZXh0KSkgCmcgPSBxcGxvdChzdXBlcl9kYXRhX3NldCRSZWdpb24sc3VwZXJfZGF0YV9zZXQkZHVyYXRpb24sY29sb3I9ZmFjdG9yKHN1cGVyX2RhdGFfc2V0JFJlZ2lvbiksbWFpbiA9ICJCYXNpYyBwbG90IGZvciBSZWdpb24gdHlwZSBhZ2FpbnN0IER1cmF0aW9uIix4bGFiID0gInJlZ2lvbiIsIHlsYWIgPSAiRHVyYXRpb24iLCAgYWVzKHRleHQgPSBzdXBlcl9kYXRhX3NldCR0ZXh0KSkgKyBnZW9tX2ppdHRlcigpCmdncGxvdGx5KCkgCmBgYA==